home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RFIX0227.ZIP / RSB40227.MRG < prev    next >
Text File  |  1990-02-28  |  7KB  |  146 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\172B\RBBSSUB4.BAS to produce RBBSSUB4.BAS
  3. * D:\172B\RBBSSUB4.BAS:  Date 2-11-1990  Size 120641 bytes
  4. * ------------[ Created 02-28-1990 10:06:12 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 58266 SmartHold$ = DATE$                         ' DT Date           ' KG021801
  8.       RETURN
  9. * REPLACING old line(s) by new
  10. 58267 CALL AMorPM
  11. * ------[ first line different ]------
  12.       SmartHold$ = ZTime$                        ' TM Time           ' KG021801
  13.       RETURN
  14. * REPLACING old line(s) by new
  15. 58700 ' $SUBTITLE: 'RotorsDir - search thru a list of subdirs for a file'
  16. ' $PAGE
  17. '
  18. '  NAME    -- RotorsDir
  19. '
  20. '  INPUTS  --     PARAMETER                    MEANING
  21. '             FilName$                  FILE NAME TO LOOK FOR
  22. '             SDIR.ARA                  ARRAY OF SUBDIRECTORIES
  23. '             MaxSearch                 MAX # OF SUBDIRECTORIES
  24. '             MarkingTime               WHETHER TO MARK TIME
  25. '
  26. '  OUTPUTS -- FNAME$                    ADD SUBDIRECTORY TO THE
  27. '                                       FILE NAME IF FOUND.  OTHER-
  28. '                                       WISE DON'T.
  29. '             ZOK                       TRUE IF FILE WAS Found
  30. '
  31. '  PURPOSE -- Hunt through a list of subdirectories to determine
  32. '             if a file is in any of them.  If file is found, open
  33. '             the file as file #2, add the drive/path to the file
  34. '             name, and sets ZOK to true.  If file isn't found, set
  35. '             file name to the last subdirectory searched -- which
  36. '             should be the upload subdirectory.
  37. '
  38. '             If the library menu is selected (ZMenuIndex = 6), then
  39. '             only 2 subdirectories are searched. The first being
  40. '             the work disk and the second being the selected
  41. '             library disk.
  42. '
  43. * ------[ first line different ]------
  44.       SUB RotorsDir (FilName$,SDirAra$(1),MaxSearch,MarkingTime,PassToMacro$) STATIC ' KG022204
  45.       ZOK = ZFalse
  46.       ZDotFlag = ZFalse
  47.       IF MarkingTime THEN _
  48.          CALL QuickTPut ("Searching for "+FilName$,0)
  49.       IF ZMenuIndex = 6 THEN _
  50.          GOTO 58705
  51.       NumSearch = 1
  52.       WasX = 0
  53.       WHILE (NOT ZOK) AND NumSearch <= MaxSearch AND _
  54.          SDirAra$(NumSearch) <> ""
  55.          IF MarkingTime THEN _
  56.             CALL MarkTime (WasX)
  57.          WasX$ = SDirAra$(NumSearch) + _
  58.               FilName$
  59.          CALL FindFile (WasX$,ZOK)
  60.          NumSearch = NumSearch + 1
  61.       WEND
  62.       IF ZOK OR NOT ZFastFileSearch THEN _                           ' KG022301
  63.          GOTO 58710                                                  ' KG022301
  64.       CALL OpenRSeq (ZFastFileList$,HighRec,WasX,18)                 ' KG022301
  65.       IF ZErrCode <> 0 THEN _                                        ' KG022301
  66.          GOTO 58710                                                  ' KG022301
  67.       CALL TrimTrail (FilName$,".")
  68.       CALL BinSearch (FilName$,1,12,18,HighRec,RecFoundAt, RecFound$)
  69.       ZOK = (RecFoundAt > 0)
  70.       IF NOT ZOK THEN _                                              ' KG022301
  71.          GOTO 58710                                                  ' KG022301
  72.       ZOK = ZFalse
  73.       CALL CheckInt (MID$(RecFound$,13,4))
  74.       IF ZTestedIntValue < 1 THEN _                                  ' KG022301
  75.          GOTO 58710                                                  ' KG022301
  76.       CALL OpenRSeq (ZFastFileLocator$,HighRec,WasX,66)
  77.       IF ZErrCode <> 0 OR ZTestedIntValue > HighRec THEN _           ' KG022301
  78.          GOTO 58710                                                  ' KG022301
  79.       FIELD 2, 66 AS LocatorRec$
  80.       GET 2, ZTestedIntValue
  81.       WasX$ = LEFT$(LocatorRec$,63)
  82.       CALL Trim (WasX$)
  83.       IF LEFT$(WasX$,2) = "M!" THEN _
  84.          ZOK = ZFalse : _                                            ' KG022301
  85.          ZGSRAra$(1) = PassToMacro$ : _                              ' KG022204
  86.          WasX$ = RIGHT$(WasX$,LEN(WasX$)-2) : _                      ' KG022204
  87.          CALL Trim (WasX$) : _                                       ' KG022204
  88.          ZFileLocation$ = "" : _                                     ' KG022301
  89.          CALL MacroExe (WasX$) : _                                   ' KG022204
  90.          IF ZFileLocation$ = "" THEN _                               ' KG022301
  91.             ZOK = ZFalse : _                                         ' KG022204
  92.             GOTO 58711 _                                             ' KG022301
  93.          ELSE WasX$ = ZFileLocation$                                 ' KG022301
  94.       WasX$ = WasX$ + FilName$                                       ' KG022301
  95.       CALL FindFile (WasX$,ZOK)                                      ' KG022301
  96.       GOTO 58710                                                     ' KG022301
  97. * REPLACING old line(s) by new
  98. 58710 FilName$ = WasX$
  99. * INSERTING new line(s)
  100. 58711 CALL SkipLine (-MarkingTime)                                   ' KG021802
  101.       END SUB
  102. * REPLACING old line(s) by new
  103. 59336 ZUserIn$(WasI) = LEFT$(PartToPrint$,INSTR(PartToPrint$," ") - 1)
  104.       CALL FindFile (ZPersonalDrvPath$ + ZUserIn$(WasI),ZOK)
  105.       IF ZOK THEN _
  106.          ZUserIn$(WasI) = ZPersonalDrvPath$ + ZUserIn$(WasI) _
  107.       ELSE CALL RotorsDir (ZUserIn$(WasI),ZSubDir$(),ZSubDirCount + _
  108.                       ((ZUserSecLevel < ZMinSecToView) OR _
  109. * ------[ first line different ]------
  110.                        NOT ZCanDnldFromUp),ZTrue,"D") : _            ' KG022204
  111.            GOSUB 59338
  112.       RETURN
  113. * REPLACING old line(s) by new
  114. 59400 ' $SUBTITLE: 'LogPDown -- subroutine to record private downloads'
  115. ' $PAGE
  116. '
  117. '  NAME    -- LogPDown
  118. '
  119. '  INPUTS  --   PARAMETER     MEANING
  120. '
  121. '  OUTPUTS --
  122. '
  123. '  PURPOSE -- Puts a "!" in place of an "*" in private directory
  124. '             after downloaded
  125. '
  126. * ------[ first line different ]------
  127.       SUB LogPDown (PrivateDnld,DwnIndex) STATIC                     ' RH021501
  128.       IF NOT PrivateDnld THEN _
  129.          EXIT SUB
  130.       ZWasEN$ = ZPersonalDir$
  131.       WasBX = &H4
  132.       ZSubParm = 9
  133.       CALL FileLock
  134.       WasL = 36 + ZMaxDescLen + ZPersonalLen
  135.       CLOSE 2
  136.       IF ZShareIt THEN _
  137.          OPEN ZWasEN$ FOR RANDOM SHARED AS #2 LEN=WasL _
  138.       ELSE OPEN "R",2,ZPersonalDir$,WasL
  139.       FIELD #2,WasL AS PersonalRec$
  140.       ZWasA = VAL(MID$(ZUserIn$(0),5 * (DwnIndex - 1) + 1,5))        ' RH021501
  141.       GET #2,ZWasA
  142.       MID$(PersonalRec$,WasL-2,1) = "!"
  143.       PUT #2,ZWasA
  144.       CALL UnLockAppend
  145.       END SUB
  146.